home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CLONEF.ZIP / clonef~1.txt
Text File  |  1996-12-23  |  844b  |  34 lines
  1. #joinflood disabled
  2. *1:ON JOIN:*: {
  3.   inc %JO $+ $nick $+ $chan
  4.   timer 1 10 unset %JO $+ $nick $+ $chan 
  5.   if ([ %JO [ $++ [ $nick [ $++ [ $chan ] ] ] ] ] >= 2) {
  6.     set %ICMP $address
  7.     echo 4 $active Clone Flood on # from $address
  8.     echo 4 $active Press F11 to Filter Clones
  9.   }
  10. }
  11. *1:ON PART:*: {
  12.   if ([ %JO [ $++ [ $nick [ $++ [ $chan ] ] ] ] ] == 1) {
  13.     ban -u15 $chan $nick 3
  14.     /msg $chan -=@=- $nick -=@=- ReVoLViNG DooR BaN
  15.     unset %JO $+ $nick $+ $chan 
  16.   }
  17. }
  18. #joinflood end
  19.  
  20. alias:
  21. /F11 /fk %ICMP
  22. fk {
  23.   set %num 1
  24.   :begin
  25.   if ($nick(%num,#) == $null) goto done
  26.   elseif ($$1 isin $address($nick(%num,#),1)) {
  27.     echo 4 Found $nick(%num,#)
  28.     kick $chan $nick(%num,#) Filter Kick on * $+ $$1 $+ * 
  29.   }
  30.   inc %num 1
  31.   goto begin
  32.   :done
  33.   echo 4 Filter Kick on * $+ $$1 $+ * completed
  34. }